home *** CD-ROM | disk | FTP | other *** search
/ PD ROM 1 / PD ROM Volume I - Macintosh Software from BMUG (1988).iso / Programming / Programming Tools / FORTRAN Routines / PAINLEVE.FOR < prev    next >
Encoding:
Text File  |  1979-12-31  |  512 b   |  15 lines  |  [TEXT/ttxt]
  1. C FIRST PAINLEVE TRANSCENDENT
  2.       DIFF(Y,T,2) = 6.0*Y*Y + T    $
  3.       $
  4. C READ INTEGRATION INTERVAL AND INITIAL CONDITIONS.
  5.       READ(5,1010) START,END,Y(1),Y(2)
  6.  1010 FORMAT(4F10.3)
  7.       WRITE(*,1020) START,END,Y(1),Y(2)
  8.  1020 FORMAT(' SOLVE THE FIRST PAINLEVE TRANSCENDENT' /
  9.      + ' INTERVAL:          ',2F10.3 /
  10.      + ' INITIAL CONDITIONS:',2F10.3 /)       $
  11.       $
  12. ST PAINLEVE TRANSCENDENT' /
  13.      + ' INTERVAL:          ',2F10.3 /
  14.      + ' INITIAL CONDITIONS:',2F10.3 /)       $
  15.